home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
wpwin
/
searchwp.zip
/
PSINST.MS_
/
PSINST.MS
Wrap
Text File
|
1995-06-06
|
8KB
|
262 lines
'*************************************************
'* CTSetup PowerSearch Install Build 117
'*************************************************
'$DEFINE DEBUG ''Define for script development/debugging
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
''Dialog ID's
CONST WELCOME = 100
CONST ASKQUIT = 200
CONST DESTPATH = 300
CONST EXITFAILURE = 400
CONST EXITQUIT = 600
CONST EXITSUCCESS = 700
CONST EXITSUCCESS2 = 750
CONST PATHHELP = 800
CONST APPHELP = 900
CONST BADPATH = 6400
CONST CLOSEWORD = 3900
''Bitmap ID
CONST LOGO = 1
GLOBAL DEST$ ''Default destination directory.
GLOBAL OPTCUR$ ''Option selection from option dialog.
DECLARE SUB Install
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
DECLARE FUNCTION GetModuleHandle Lib "Kernel" (lpModuleName$) AS INTEGER
DECLARE FUNCTION GetModuleUsage Lib "Kernel" (hModule) AS INTEGER
DECLARE FUNCTION WinExec Lib "Kernel" (lpCmdLine$, nCmdShow As Integer) AS INTEGER
DECLARE FUNCTION CreateHiddenFile Lib "instsup.dll" (szFileName$) AS INTEGER
INIT:
CUIDLL$ = "ctpsinst.dll" ''Custom user interface dll
HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
SetBitmap CUIDLL$, LOGO
SetTitle "CommTech PowerSearch Setup"
szInf$ = GetSymbolValue("STF_SRCINFPATH")
IF szInf$ = "" THEN
szInf$ = GetSymbolValue("STF_CWDDIR") + "PSINST.INF"
END IF
ReadInfFile szInf$
OPTCUR$ = "1"
DEST$ = "C:\WPWIN60"
'$IFDEF DEBUG
i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
WinDrive$ = MID$(GetWindowsDir, 1, 1)
IF IsDriveValid(WinDrive$) = 0 THEN
i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
GOTO QUIT
END IF
'$ENDIF ''DEBUG
WELCOME:
sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
UIPop 1
ELSE
GOSUB ASKQUIT
GOTO WELCOME
END IF
TRYAGAIN:
' NoProt% = IsDirWritable(GetSymbolValue("STF_SRCDIR"))
' IF NoProt% = 0 THEN
' GOTO KILLERR
' END IF
GETPATH:
SetSymbolValue "EditTextIn", DEST$
SetSymbolValue "EditFocus", "END"
GETPATHL1:
sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", PATHHELP, HELPPROC$)
DEST$ = GetSymbolValue("EditTextOut")
IF sz$ = "CONTINUE" THEN
IF IsDirWritable(DEST$) = 0 THEN
GOSUB BADPATH
GOTO GETPATHL1
END IF
UIPop 1
ELSEIF sz$ = "REACTIVATE" THEN
GOTO GETPATHL1
ELSEIF sz$ = "BACK" THEN
UIPop 1
GOTO WELCOME
ELSE
GOSUB ASKQUIT
GOTO GETPATH
END IF
Install
'This is where we do the time-bomb stuff:
' szSentryFile$ = MakePath(GetSymbolValue("STF_SRCDIR"), "CT_PS3.DSK")
' szHiddenFile$ = MakePath$(DEST$, "CT_PS3.DAT")
' i% = DoMsgBox(szSentryFile$, "Sentry File", MB_OK)
' i% = DoMsgBox(szHiddenFile$, "HiddenFile", MB_OK)
' IF DoesFileExist(szSentryFile$, femExists) THEN
' IF DoesFileExist(szHiddenFile$, femExists) = 0 THEN
' i% = CreateHiddenFile(szHiddenFile$)
' END IF
' RemoveFile szSentryFile$, cmoForce
' END IF
GOTO QUIT
KILLERR:
KillMsg1$ = "CommTech PowerSearch Setup Needs to write to the installation diskette during setup."
KillMsg2$ = " Please remove the write-protect notch and click OK."
KillMsg$ = KillMsg1$ + KillMsg2$
i% = DoMsgBox(KillMsg$,"CommTech PowerSearch Setup", MB_OK)
GOTO TRYAGAIN
QUIT:
ON ERROR GOTO ERRQUIT
IF ERR = 0 THEN
dlg% = EXITSUCCESS
ELSEIF ERR = STFQUIT THEN
dlg% = EXITQUIT
ELSE
dlg% = EXITFAILURE
END IF
QUITL1:
sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO QUITL1
END IF
UIPop 1
IF dlg% = EXITSUCCESS THEN
QUITL2:
dlg% = EXITSUCCESS2
sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO QUITL2
END IF
UIPop 1
i% = DoMsgBox("Would you like to view the README file now?", "CommTech PowerSearch Setup", 4)
IF i% = 6 THEN
ReadMePath$ = MakePath(DEST$, "readme.txt")
lpCmdLine$ = GetWindowsDir + "notepad.exe " + ReadMePath$
' i% = DoMsgBox(lpCmdLine$, "lpCmdLine$", MB_OK)
nCmdShow = 5
x% = WinExec(lpCmdLine$, nCmdShow)
' i% = DoMsgBox(Str$(x%), "x%", MB_OK)
END IF
END IF
END 'THE end
ERRQUIT:
i% = DoMsgBox("Setup sources were corrupted, call 203/ 786-5445!", "CommTech PowerSearch", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
BADPATH:
sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
IF sz$ = "EXIT" THEN
UIPopAll
ERROR STFQUIT
ELSEIF sz$ = "REACTIVATE" THEN
GOTO ASKQUIT
ELSE
UIPop 1
END IF
RETURN
'**
'** Purpose:
'** Builds the copy list and performs all installation operations.
'** Arguments:
'** none.
'** Returns:
'** none.
'*************************************************************************
SUB Install STATIC
SrcDir$ = GetSymbolValue("STF_SRCDIR")
CreateDir DEST$, cmoNone
OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
WriteToLogFile ""
WriteToLogFile " User chose as destination directory: '" + DEST$ + "'"
WriteToLogFile " User chose option: '" + OPTCUR$ + "'"
WriteToLogFile ""
WriteToLogFile "May have had to create the directory: " + DEST$
WriteToLogFile ""
AddSectionFilesToCopyList "Files", SrcDir$, DEST$
' AddSectionKeyFileToCopyList "Options", OPTCUR$, SrcDir$, DEST$
CopyFilesInCopyList
' ini$ = MakePath(DEST$, "DEMO.INI")
' CreateIniKeyValue "WIN.INI", "MSSetup Sample 1", "Option", OPTCUR$, cmoNone
' CreateIniKeyValue ini$, "Section 1", "Key 1", "Value 1" , cmoNone
' CreateIniKeyValue ini$, "Section 2", "Key 2", "Value 2" , cmoNone
' CreateIniKeyValue ini$, "Section 3", "Key 3", "Value 3" , cmoNone
' CreateProgmanGroup "MSSetup Sample 1", "", cmoNone
' ShowProgmanGroup "MSSetup Sample 1", 1, cmoNone
' CreateProgmanItem "MSSetup Sample 1", "dialogs", "dlgedit.exe "+MakePath(DEST$,"dialogs.res"), "", cmoOverwrite
' CreateProgmanItem "MSSetup Sample 1", "dlgprocs.c", "notepad.exe "+MakePath(DEST$,"dlgprocs.c"), "", cmoOverwrite
' AddDos5Help "YOURAPP", "A brief help text for your Windows application."+chr$(10)+"It can be continued on another line with chr$(10).", cmoNone
CloseLogFile
END SUB
'**
'** Purpose:
'** Appends a file name to the end of a directory path,
'** inserting a backslash character as needed.
'** Arguments:
'** szDir$ - full directory path (with optional ending "\")
'** szFile$ - filename to append to directory
'** Returns:
'** Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
IF szDir$ = "" THEN
MakePath = szFile$
ELSEIF szFile$ = "" THEN
MakePath = szDir$
ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
MakePath = szDir$ + szFile$
ELSE
MakePath = szDir$ + "\" + szFile$
END IF
END FUNCTION